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I 
° 


MULTIKEY FILE ENHANCEMENT: 


UNDER OS/3 RELEASE 8.0, RPG II HAS BEEN ENHANCED TO ALLOW PROCESSING 
OF INDEXED FILES WITH MORE THAN 1 KEY OF REFERENCE. MIRAM FILES WITH 


FROM 1 TO 5 KEYS OF REFERENCE CAN NOW BE PROCESSED. EACH KEY CAN BE 


FROM 1 TO 80 CHARACTERS IN LENGTH WITH THE OPTION OF ALLOWING DUPLICATE 
KEY VALUES AND/OR CHANGES TO KEY VALUES. 


RPG II CODING REQUIREMENTS: 


A. FILES DESCRIPTION SPECIFICATION FORM: 


COLUMNS CODING REQUIREMENTS 

1 - 28 STANDARD CODING FOR INDEXED FILES (SINGLE KEY) 
29 - 30 MUST BE LEFT BLANK 

31 - 34 STANDARD CODING FOR INDEXED FILES (SINGLE KEY) 
35 - 38 MUST BE LEFT BLANK 

39 - 80 STANDARD RPG II CODING 


B. CONTINUATION LINES (FILE DESCRIPTION) 


COLUMNS CODING REQUIREMENTS 
53 K 

94 ~- 59 KEYN (N=] TO 5 - DENOTES KEY NUMBER) 

6C - 65 START POSITION FOR KEYN VALUE IN RECORD 

6€ - 67 LENGTH OF KEY (FROM 1 TO 80 CHARACTERS) 
68 D OR BLANK D - DUPLICATION OF KEYN VALUE ALLOWED 

BLANK - NO DUPLICATION OF KEYN VALUE 

69 C OR BLANK C - CHANCES TO KEYN VALUE ALLOWED 


BLANK - NO CHANGES ALLOWED 


C. CALCULATION SPECIFICATIONS ~ SETK OPERATION: 


COLUMNS CODING REQUIREMENTS 
9-17 CONDITIONS - OPTIONAL ’ 
18 - 27 FACTOR 1 - POSITION 18 - MUST CONTAIN A VALID LITERAL OR 


A 1 CHARACTER VARIABLE WITH A VALUE OF FROM 1 TO 5 TO 
SPECIFY THE KEY STRUCTURE TO REFERENCE THE FILE 

28 - 32 OPERATION ~ SETK 

33 = 42 FACTOR 2 - MUST CONTAIN THE FILE NAME USED IN COLUMNS 
7 - 14 OF THE FILE DESCRIPTION SPECIFICATION FORM FOR 
THE MULTIKEYED FILE 

43 - 59 RESULT FIELD - RESULTING INDICATORS - MUST BE BLANK 





IIt. 


IV. 








NOTE: KEY "1" IS THE PRIMARY KEY OF REFERENCE UNLESS AN 
ALTERNATE KEY IS SPECIFIED BY USING THE "SETK" OPERATION 
IN THE CALCULATION SPECIFICATIONS. a 
THE “SETK" OPERATION WILL NOT BE FUNCTIONAL AND NORMAL 
PROCESSING FOR A SINGLE KEY INDEXED FILE WILL BE ASSUMED 
IF A "COMPLETE" KEY STRUCTURE IS NOT SPECIFIED ON THE 
FILE DESCRIPTION SPECIFICATION FORMS. CONTINUATION LINES 
(K IN COLUMN 53 OF FILE DESCRIPTION SPECIFICATIONS) MUST 
BE USED TO DESCRIBE KEY CHARACTERISTICS IF THE FILE HAS 
MORE THAN 1 KEY OF REFERENCE. 


SAMPLE RPG II SPECIFICATION FORMS: 
A. FILE DESCRIPTION SPECIFICATION FORM: 
@OOO3FMKFILE O F 96 96. AI DISK S 
B. CONTINUATION LINES (COMPLETE KEY STRUCTURE - FILE DESCRIPTION): 
OOOG4F KKEY1 118 
OGOOSF KKEY2 319 
SOOO6F KKEY3 43 8 
OQQO7F KKEY4 51 7DC 
OOOG8F KKEYS 64 7 
C. CALCULATIONS SPECIFICATION FORM: 
GOB56C 5a 1 SETK MKFILE 
SOBZEGC 51 2 SETK MKFILE @ 
GBB64C 52 3 SETK MKFILE 
G2268C 53 4 SETK MKFILE 
@8072C 54 5 SETK MKFILE 
SAMPLE PROGRAMS - MULTIKEY FILE PROCESSING: 


EACH OF THE SAMPLE PROGRAMS PRESENTED USE A "5" KEYED 

MIRAM DATA FILE NAMED "MKFILE". THE PRIMARY PURPOSE OF THESE 
PROGRAMS IS TO DEMONSTRATE THE "EASE" OF PROCESSING A MULTIKEYED 
FILE IN RPG II IN A VARIETY OF PROCESSING SITUATIONS. FOR EXAMPLE, 
THE PROGRAMS WHICH CREATE, EXTEND AND UPDATE THE KEYED FILE UTILIZE 
INTERACTIVE DATA ENTRY TECHNIQUES IN RPG II. SCREEN PROMPTS ARE 
AUTOMATICALLY GENERATED FOR THE USER WITHOUT THE NEED TO CREATE 

AND FORMAT SCREENS BY USING THE SCREEN FORMAT GENERATOR IN A SEPARATE 
STEP. CUSTOMIZED WORKSTATION SCREENS CREATED BY USING THE SCREEN 
FORMAT GENERATOR ARE USED IN THE FILE INQUIRY PROGRAM. FOR EASE OF 
CODING, COPY MODULES AND AUTO REPORT ARE USED IN THE FIVE PROGRAMS 
WHICH SEQUENTIALLY PROCESS THE DATA FILE BY SELECTED KEY. 

THESE SAMPLE PROGRAMS ARE SIMPLY EXAMPLES OF SOME OF THE TECHNIQUES 
TO PROCESS MULTIKEYED FILES AND ARE NOT NECESSARILY THE MOST 
EFFICIENT METHODS. 











A. CREMLT - CREATING A 5 KEYED MIRAM FILE 


THIS PROGRAM UTILIZES INTERACTIVE DATA ENTRY TO CREATE A 
5 KEY MIRAM FILE. THE KEY CHARACTERISTICS ARE AS FOLLOWS: 


POSITION TYPE FIELD NAME DUPLICATES CHANGES 


1 - 108 NUMERIC IDNUM NO NO 
31 = 39 NUMERIC SSN NO’ NO 
43 - 56 NUMERIC INSNUM NO NO 
51 = 57 NUMERIC PHONE © YES YES 
64 - 78 NUMERIC RETNUM NO NO 


PROMPT SCREENS ARE AUTOMATICALLY CREATED BASED ON THE RECORD 
DESCRIPTIONS OF THE CONSOLE FILE "INDATA". 


08601H CREMLT 
OGOG2FINDATA IP PF 97 CONSOLE 

OGGG03FMKFILE Oo F 96 96 AI. DISK Ss 

OOO04F KKEY1 110° 
OOOOSF KKEY2 31 9 
OOBB6F ; KKEY3 43 8 
OOOOTE KKEY4 51 7DC 
OO008F KKEYS - 64 7 
009089FPRNTR fe) F 132 132 OF PRINTER 

GBG1BIINDATA AA @] 1 Cy . 

@8G11I ; 7 1@IDKEY 

080121 2 11@IDNUM 

062131 12 31 NAME 

os: 32 460SSN 

BOB15I 41 41 MSTAT 

GOB16I 42 43QEXEMPT 

S6B17I 44 S1GINSNUM 

680181 ae 52 588PHONE 

288191 59 626DEPT 

SG0261 63 64 SALCL 

@08211 65 71@RETNUM 

GG0221 72 T7OSTDATE 

868231 ' 78 97 TITLE 
@@G24OMKFILE D G1 ; 

888250 IDNUM 1g 

828260 NAME 36 

682270 SSN 39 

228280 MSTAT 4B 

888290 EXEMPT 42 

2683680 INSNUM 50 

080310 ; PHONE . 57 

206320 DEPT 61 

868330 SALCL 63 

688340 RETNUM 70 

688350 _ «+ STDATE 76 

282360 TITLE 96 

Q@62370PRNTR HH 307 OF 

082380 OR 1P 


B 90 19 Se OM UL. TT KE yo 








820480 80 'F I.L E *#! 


20410 ae eee | OF 

68420 OR iP 

866430 6° i TD! 

888440 24 "EMPLOYEE! 

888450 © 54 "SOCIAL MARITAL! 
886460. 69 'EXEMP INS,‘ 
886470 91 ‘PHONE DEPT .Sc* 
860480 198 'RET. START! 
888490 123 “TITLE' 

888580 — D 2 OF 

888510 OR 1P 

888520 7 "NUMBER! 

888530 _ 22 ‘NAME! 

888540 54 'SECURITY STATUS ' 
868550 , 88 'NUMBER NUMBER' 
882560 . 187 'NUMBER DATE! 
868570 D ji 61 

828580 IDNUM 18 

888590 NAME 32 

BEBEBO | SSN 45 ' So 
888610 ; MSTAT 51 

082620 EXEMPT 59 

888630 INSNUM ra! 

888640 PHONE os ina - : 

228650 DEPT 87 

882660 SALCL gt 

288670 RETNUM 188 

282680 STDATEY 118 

838690 TITLE L232 


JOB CONTROL TO COMPILE AND LINK CREMLT: 


// JOB RPGEL&&, ,BOBB RPG II COMPILE. & LINK 
// IF ('&PGM' NE '')S] 
// QGBL PGM 
//S1 NOP 
//&PGM RPG IN= (OS3DTA,JAM.SRC) , ERRFIL=(OS3DTA,JAM.ERF,JAM.EF1), 
ap CONSOLE=INDATA 
//&PGM LINK OUT=(OS3DTA,JAM.LOD) 
/& 
JOB STREAM TO EXECUTE CREMLT: 


// JOB CREMLT, ,DOBB 
// QGBL PGM 

// DVC 26 // LFD PRNTR 

// DVC 286 

// USE SFS 

// UID SYSMAS 

// LFD INDATA 

// DVC 68 // VOL OS3DTA // LBL MKFILE // LFD MKFILE,,INIT 
// DVC 68 // VOL OS3DTA // LBL JAM.LOD 
// LED LOD j 

// EXEC &PGM,LOD 














NOTE: MKFILE MUST BE ALLOCATED BEFORE CREMLT IS EXECUTED. 
AL MI, FIL=MKFILE,VSN= 


i B. MKFADD ~- ADDING RECORD TO MKFILE 


"MKFADD" IS USED TO EXTEND THE ORIGINAL DATA FILE (MKFILE) 
CREATED BY SAMPLE PROGRAM "CREMLT". INTERACTIVE DATA ENTRY 
IS USED TO CREATE AND PRESENT SCREEN PROMPTS FOR THE RECORDS 
TO BE ADDED. EACH RECORD ADDED AT THE WORKSTATION IS WRITTEN 
TO THE PRINTER FILE. IF A RECORD ALREADY EXISTS IN MKFILE, A 
NOTE IS WRITTEN TO THE PRINTER FILE SPECIFYING DUPLICATE 
KEYS AND THE RECORD IS IGNORED. TO BE A UNIQUE (NEW) RECORD 
NO KEY FIELDS IN WHICH DUPLICATES ARE RESTRICTED MUST MATCH 
THOSE ALREADY EXISTING IN MKFILE. IF A RECORD IS DETERMINED 
TO BE UNIQUE, IT IS ADDED TO MKFILE. IT IS THE PROGRAMMER'S 
RESPONSIBILITY TO CHECK FOR DUPLICATES IN ALL KEY FIELDS IN 
‘WHICH DUPLICATES ARE NOT ALLOWED. 


NOTE: WHEN USING THE CHAIN OPERATION, A 'NO HIT' INDICATOR 
SHOULD BE USED TO PREVENT ABNORMAL TERMINATION DUE TO 
A 'NO RECORD FOUND' CONDITION. OTHERWISE, THE H@ INDICATOR 
IS SET ON AND MUST BE SET OFF BY THE PROGRAMMER. 


08001H MKFADD 
@BG0G2FINDATA IP F 97 97 CONSOLE 

BO9O6O3FMKFILE UC F 96 96R AI DISK S A 
OO0G4F ‘ KKEY] 118 
OOBG5F KKEY2 31 9 
Q 6F ‘ KKEY3 43 8 
g 7F KKEY4 51 7pc 
GBOGG8F KKEY5 64 7 
68009FPRNTR O F 132 132 OF PRINTER 

C2B1GIINDATA AA 61 PCy 

OGBO11I 2 l1G@IDNUM 

€96121 12 31 NAME 

GOG131 32 498SSN 

COB14I 41 41 MSTAT 

CQG151 ' 42 436EXEMPT 

OOG16I 44 - SIGINSNUM 

GBG6171 52 S580PHONE 

029181 59 620DEPT 

QGG191 63 64 SALCL 

CBG201 65 71@RETNUM 

GG8211 72 776STDATE 

Q6822I 78 97 TITLE 
Q@GB823IMKFILE BB 67 

OO8241 1 166IDNUM 

@B825I ll 30 NAME 

GGG8261 31 399SSN 

060271 48 48 MSTAT 

OBG281 41 426EXEMPT 

088291 43 SOBINSNUM 

GBO3BI1 51 578PHONE 


oo@: 58 619DEPT 














688321 - 62 63 SALCL 

898331 64 72O0RETNUM 

688341 71 76OSTDATE 

G688351 77 #96 TITLE 

G8836C SETOF 162821 

@BB37C - SETOF 2223 

BEB38C** WRITE RECORD ENTERED TO PRINTER FILE EES 

68839C° 91 EXCPT 

88848C* 

@8841C** CHECK FOR DUPLICATE IDENTIFICATION NUMBER ** 

88042C* 

BB2B43C 61 1 SETK MKFILE SET KEY = IDNUM 
88644C 61 IDNUM CHAINMKFILE 20 

G8B45c* 

99046C** CHECK FOR DUPLICATE SOCIAL SECURITY NUMBER ** 

8@8B47C* 

O068048C 61 28 2 SETK MKFILE SET KEY = SSN 
8B8849C B81 28 SSN CHAINMKFILE 21 

G8G5ec* 

@8951C** CHECK FOR DUPLICATE INSURANCE NUMBER ** 

86852C* : 

GB853C 81 21 3 SETK MKFILE SET KEY = INSNUM 
68854C G1 21 INSNUM CHAINMKFILE 22 

88655C* 

@0056C** CHECK FOR DUPLICATE RETIREMENT NUMBER ** 

G8857C* 

2OB58C G1 22 a SETK MKFILE SET KEY = RETNUM 
66859C G1 22 RETNUM CHAINMKFILE 23 

Z22B60C* @ 
@0861C** 23 ON - NO DUP KEYS - WRITE RECORD TO MKFILE ** 

68262C* 

Zee63C Ol 23 SETON 18 
GS864OMKFILE DADD 18 

858650 IDNUM 16 

228660 NAME 38 

oe08670 SSN 39 

568680 MSTAT 40 

282690 EXEMPT 42 

C2670 INSNUM 58 

268710 PHONE a7 

688720 DEPT 61 

688730 SALCL 63 

8668740 RETNUM © 78 

888750 STDATE 76 

68760 TITLE 96 

608770PRNTR H 387 OF 

8866780 OR LP 

888790 76 '** MULTIKEyY ! 
828880 SO FI. et 

668810 H 1 OF 

888820 OR iP 

288830 6. *1D" 

828840 24 'EMPLOYEE' 

862850 54 "SOCIAL MARITAL' 
888860 69 '"EXEMP INS.’ 











rs ‘ 


868870 91 ‘PHONE DEPT. Sc* 
888880 168 ‘RET. START’ 
888890 © 123. “SPIELE 
028980 Dir 2e OF 

910 OR iP 
668920 © 7 'NUMBER! 
888930. 22 'NAME' 
0868940 54 "SECURITY STATUS! 
688950 88 'NUMBER NUMBER’ 
888960 187 'NUMBER DATE! 
888970 E 1 81 
886980 IDNUM 18 
888990 NAME 32 
8810980 SSN 45 ' oe : 
881810 MSTAT 51 
681820 EXEMPT 59 
8681830 INSNUM 71 
881840 PHONE Si = : 
8681650 DEPT 87 
8661860 ; SALCL 91 
681870 RETNUM 189 
881880 , STDATEY 118 
881890 TITLE 132 
881180 Dit N19 91 
881110 48 ‘INVALID RECORD - ' 
881120 68 ‘DUPLICATE KEY VALUES! 


JOB STREAM TO COMPILE AND LINK MKFADD: 


// JOB RPGEI&&, ,-BOGB RPG II COMPILE & LINK 
// IF (*&PGM' NE '')S1 

// QGBL PGM 

//S1 NOP 

//&PGM RPG IN= (OS3DTA,JAM.SRC) , ERRFIL=(OS3DTA,JAM.ERF,JAM.EF1), 
ra CONSOLE=INDATA 

//&PGM LINK OUT=(OS3DTA,JAM.LOD) 
Zé 


JOB STREAM TO EXECUTE MKFADD: 


// JOB MKFADD, ,D@OB 
// QGBL PGM 

// DVC 28 // LFD PRNTR 

// DVC 280 

// USE SFS 

// UID SYSMAS 

// LFD INDATA 

// DVC 68 // VOL OS3DTA // LBL MKFILE // LFD MKFILE 
// DVC 66 // VOL OS3DTA // LBL JAM.LOD. 
// LFD LOD 

// EXEC &PGM,LOD 








C. MLINQ2 - INQUIRY TO RECORDS OF MKFILE 


SCREEN FORMAT SERVICES IS USED TO CREATE PROMPT SCREENS 

FOR THIS WORKSTATION/MULTIKEYED FILE PROCESSING PROGRAM. 
THE PURPOSE OF THE PROGRAM IS TO DISPLAY SELECTED RECORDS 
ON THE WORKSTATION SCREEN. SEPARATE PROMPT SCREENS ARE USED 
FOR EACH OF THE FIVE KEYS OF REFERENCE. 





PROMPT SCREENS PRESENTED: 


1. SCREEN@1 - MAIN MENU 


SSRPSSSS SPS SSSR SBSH SSS SSS SSS Se Heese Sse eee eee a a ee a a ee we 
SOE EEE SES SR GG RS SS SSS SSS SSS SPS SSS SS SS SSS SSS SSS SSS sss ses ess sss sess 





*** MULTIKEY FILE INQUIRY *** 
*** KEY MENU *** 


RK KKK EEK HERE KRKEKEAE KKK KKK 


1 EMPLOYEE IDENTIFICATION NUMBER 
2 SOCIAL SECURITY NUMBER 

3 INSURANCE ACCOUNT NUMBER 

4 BUSINESS PHONE NUMBER 

5 RETIREMENT ACCOUNT NUMBER 


ENTER KEY REFERENCE NUMBER 


! 
! 

! 

! 

! 

{ 

! 

! KEY NUMBER KEY FIELD 
{ 

! 

{ 

i 

{ 

! 

{ 

i 

{ 

! 

! TERMINATE SESSION 
t 

i 


"y 


15 - TERMINATES SESSION 


SBS SRE SS SST SSS SSS SSS SSS SSS PHS SP SSS SS SH St esse ee aaa a aw eae ee LLL 


! *x* MULTIKEY FILE INQUIRY *** 
ENTER: 
EMPLOYEE IDENTIFICATION NUMBER 


!Fl11 - RETURN TO KEY MENU 
!F15 - TERMINATE UPDATE SESSION 








3. SCREEN@3 - EMPLOYEE SOCIAL SECURITY NUMBER (KEY 2 OF MKFILE) 


1 
1 SCREENG3 
1 1 
1 *** MULTIKEY FILE INQUIRY *** ! 
t ! 
ENTER: 
SOCIAL SECURITY NUMBER - - , 
1 i] 
1 Fll - RETURN TO KEY MENU 
! F15 = TERMINATE UPDATE SESSION ! 
! { 


ee ee ee ee ee ee ee ee ee 
GI id 


GE eee 


SCREENG4 


wee MULTIKEY FILE INQUIRY =** 
ENTER: 


INSURANCE ACCOUNT NUMBER 


@. - RETURN TO KEY MENU 
F15 - TERMINATE UPDATE SESSION 


ee a ee ee ee ee ood 


5. SCREEN@S5 - EMPLOYEE PHONE NUMBER (KEY 4 OF MKFILE) 


SCREENG5 
eA “MULTIREY FILE: TNOULRY 8% 


ENTER: 
BUSINESS PHONE NUMBER = 


Fll - RETURN TO KEY MENU 
F15 - TERMINATE UPDATE SESSION 








6. SCREENS6 - EMPLOYEE RETIREMENT NUMBER (KEY S OF MKFILE) 


Serre wre ee 
s2o- = SSSSSSSt i SS Stet ets esi sees eee Ses se ese eee eH ~~~ ee 
OEE SS SS GE S GG RSS RSS SSS SSS S SH SSeS Ss P SSS SSS Sess s ss sees sees eee eee 


**kk MULTIKEY FILE INQUIRY (kh 


RETIREMENT ACCOUNT NUMBER 


Fll - RETURN TO KEY MENU 


! 
1 ! 
! 1 
! ! 
! ! 
! ENTER: ! 
' 1 
! ' 
! ! 
! Fl15 - TERMINATE UPDATE SESSION ! 
! 1 


SSSSS SSS SSS PSP PRB nn s tees esse sees ses eee see eee ee ee - - - -  - -- --” 
EEE SSS ee SS RS RGSS RSS SES SSSR SSS SHR SS SSS SSS SS SSS SSS SSS See eee ee Sse eee eee 


7. SCREENS7 - DATA RECORD DISPLAY 


GSSS SRS SSCS Ss Ses seast Sees ses es Sees sees eee ee ee ee ee ~~ 








1 
! SCREENB7 : 
] ! 
! *** MKFILE RECORD DISPLAY *** ! 
t ' 
! FIELD FIELD FIELD ! 
! NUMBER NAME DATA ! 
| t 
! 1 IDENTIFICATION NUMBER ! 
! 2 NAME ! 
! 3 SOCIAL SECURITY NUMBER - = 
4 MARITAL STATUS CODE — } i 
! 5 NUMBER OF EXEMPTIONS ! 
! 6 INSURANCE ACCOUNT NUMBERE ! 
! 7 BUSINESS PHONE NUMBER a 
! 8 DEPARTMENT NUMBER 
l 9 SALARY CLASSIFICATION ! 
! 19 RETIREMENT ACCOUNT NUMBER ~_ ! 
! ll START OF EMPLOYMENT DATE a ae ! 
! 12 JOB TITLE 1 ! 
! 
! ! 
! ! 
! ! 




















8. SCREEN#8 - ERROR MESSAGE SCREEN - NO HIT ON CHAIN OPERATION 
ks f 


!SCREEN®8 
*** MULTIKEY FILE INQUIRY *** 
aliala ERROR MESSAGE alla 


H 
! 
! 
! 
! 
INVALID RECORD KEY ENTERED ! 
NO MATCHING KEY IN MKFILE i 
XMIT AND RE-ENTER ! 
! 
H 
i 
! 
J 


ee ee ey 


!F15 - TERMINATE INQUIRY SESSION 


XMIT TO CONTINUE 


SRV StS SSP SS St tS SS se eB Be a a a i wm me we we ae we we we we es we a a eee ee eee 


MLINQ2 - SOURCE LISTING 


900018 MLINQ2 
@@OG2FWRKSTN CP F 96 WORKSTN 

G@OOO3FMKFILE IC F 96 96R AI DISK S 

OO004F KKEY1 116 
OQQO5F KKEY2 31 9 
OMEP GF KKEY3 43 8 
BOG07F KKEY4 51 7DC 
OO808F KKEY5 64 7 
GO@@9IWRKSTN AA @1 1¢C 

G8B181 OR 1 cl 

COG111 2 2O0KEY 

339121 | 3 3 TERM 

899131 BB @2 1 C2 

GOB14I 2 11GKEYVAL 

208151 BD 64 1 CY 

GOB16IMKFILE CC g3 

S8O171 1 1988IDNUM 

GOG181 11 38 NAME 

GOB19I 31 396SSN 

809201 49 40 MSTAT 

GGG211 41 426EXEMPT 

G80221 . 43 5QSINSNUM 

@08231 51 57@PHONE 

000241 58 61@DEPT 

G80251 62 63 SALCL 

900261 64 7SO6RETNUM 

GOB271 71 768STDATE 

860281 77 96 TITLE 

G8929C SETOF 183696 

CO mg oc - SETOF 800714 


COPLC . SETOF 7635 





@8832C 


86233C 
88834C 
88835C KK 
@B8836C KK 
@8837C° KK 
88238C KK 
88839C 84 
B2B46C 84 
88641C 81 
88B42C 81 
BBB43C 87 
92644C 67 
@8B45C 87 
B2B46C 
B@B47C 14 
O0848C 14 
@8849C 
88856C 78 
886851C 78 
88852C 
88653C 18 
@B854C 
82B55CSR 
@8856CSR 


B28B57CSR 5B 
CB8858CSR 5B 
28859CSR 5g 
82B6BCSR 

268661CSR 51 
8O862CSR 51 
C@8E3CSR 51 
EBB64CSR 

EVBES5CSR 52 
M3866CSR 52 
rLB67CSR 52 
v6 BESCSR 

COGB69CSR 53 
co@7ECSR 53 
CB971CSR 53 
CB872CSR 

80873CSR 54 
C8874CSR 54 
B82O75CSR 54 
88276CSR 

88877CSR 5B 
8@878CSR 51 
82B79CSR 52 
B8288BCSR 53 
B2B81CSR 54 
888682CSRN8O 
20883CSR 986 
O€884CSR 

88S85CSR 

08886CSR 


82 


TERM 
KEY 


SCN 


SCN 


SCN 


END 


INPUT2 
KEY 


KEY 


KEY 


KEY 


KEY 


CHFIL 
CH1 
CH2 
CH3 
CH4 
CHS5 


INPUT1 


SETOF 

SETOF 

SETOF 
Z-ADD2 
SETON 

MOVE 8 

GOTO END 
EXSR INPUTL 
GOTO END 
COMP '‘y! 
COMP @ 

MOVE 2 
SETON 

GOTO END 
COMP 2 

EXSR INPUT] 
GOTO END 
COMP 5 

EXSR INPUT2 
GOTO END 
COMP 1 

MOVE 2 

TAG 

BEGSR 

COMP 1 

SETK MKFILE 
MOVELKEYVAL 
GOTO CHFIL 
COMP 2 

SETK MKFILE 
MOVELKEYVAL 
GOTO CHFIL 
COMP 3 

SETK MKFILE 
MOVELKEYVAL 
GOTO CHFIL 
COMP 4 

SETK MKFILE 
MOVELKEYVAL 
GOTO CHFIL 
COMP 5 

SETK MKFILE 
MOVELKEYVAL 
GOTO CHFIL 
TAG 
CHAINMKFILE 
CHAINMKFILE 
CHAINMKFILE 
CHAINMKFILE 
CHAINMKFILE 
SETON 
Z-ADD1 
ENDSR 

BEGSR 
Z-ADDS5 


SCN 


KEY 


SCN 


SCN 


CH] 


CH2 


CH3 


CH4 


CH5 


SCN 


SCN 





18 
18 


16° 


12 


186 


92 


8B 


78 


76 


18 


18 


585152 

535431 

323334 

16 
LR 
07 

10 
14 
70 
1g 
50 
51 
52 
53 
54 

8g 

8G 

8a 

8a 

80 

99 














ry . 


82B87CSR SETON 39 


BB088CSR KEY COMP 1 31 

G3989CSR KEY COMP 2 32 
98CSR KEY COMP’ 3 33 
91CSR KEY COMP 4 34 

60092CSR KEY COMP 5 35 

G0993CSR ENDSR 

OBG94OWRKSTN D 12 

902950 K4 'SCR1! 

520960 D 36 31 

829970 K4 'SCR2! 

620980 D 38 32 | 

822990 K4 'SCR3! 

821900 D 38 33 

681610 K4 'SCR4! 

881620 D 30 34 

601630 K4 'SCR5! 

8016840 D 30 35 

8019850 K4 '"SCR6! 

901660 D 98 03 

631870 K4 'SCR7! 

991980 IDNUM 12 

661290 NAME 30 

61190 SSN 39 

81110 MSTAT 40 

681120 EXEMPT 42 

881130 . INSNUM 58 

661140 PHONE 57 

BAl150 DEPT 61 

oP co SALCL 63 

081170 RETNUM 72 

681180 STDATE 76 

691190 TITLE 96 

91260 D 8g 

G@21210 K4 'SCR8! 


JOB STREAM TO COMPILE AND LINK MLINQ2 


// JOB RPGII&&,,BO88 RPG II COMPILE & LINK 
// IF ('&PGM' NE '')S1 

// QGBL PGM 

//S1 NOP 

//&PGM RPG IN= (OS3DTA,JAM.SRC) 

//&PGM LINK OUT=(OS3DTA,JAM.LOD) 

/& 








JOB STREAM TO EXECUTE MLINQ2: 





// JOB MLTINO, ,DBOD *** WRKSTN PROG *** 
// IF ('&PGM' NE '')s1 

// QGBL PGM & 
//S1 NOP 


// DVC. 28 // LFD PRNTR 

// DVC 58 // VOL OS3DTA 
// UBL MKFILE // LFD MKFILE 
// DVC 58 // VOL OS3DTA 
// LBL JAM.FMT // LFD FMT 
// DVC 286 

// USE SFS,FMT 

// UID SYSMAS 

// LED WRKSTN 

// DVC 58 // VOL OS3DTA 
// LBL JAM.LOD // LED LOD 
// EXEC &PGM,LOD 








/& 
D. MKUPD - UPDATING MKFILE 

THIS PROGRAM IS USED TO UPDATE RECORDS. EXISTING IN THE "MKFILE". 
INTERACTIVE DATA ENTRY PROCESSING IS UTILIZED TO AUTOMATICALLY 
GENERATE FORMATTED SCREEN PROMPTS FOR EACH KEY OF THE MULTIKEYED 
FILE. FUNCTION KEYS 1 TO 5 ARE ENTERED TO PRESENT KEY PROMPT 
SCREENS FOR KEY 1 TO 5 RESPECTIVELY. USERS ENTER KEY VALUE, 
FIELD NUMBER TO BE UPDATED (FLDNUM), AND REPLACEMENT DATA 
FOR FIELD (FLDATA). FUNCTION KEY 15 IS ENTERED TO TERMINATE & 
YORKSTATION INPUT AND UPDATE PROCESSING. 
NOTE: SEE TECHNICAL BULLETIN 99 FOR SAMPLE SCREENS AND PROGRAM 
EXECUTION RUN OF MKUPD. 

c390@1H MKUPD 

CEEG2FINDATA IP F 33 CONSOLE 

BOGO3FMKFILE UC F 96 96R AI DISK . S 

80004F KKEY1] 116 

BBGO5F KKEY2 31 9 

CCOB6F KKEY3 43 8 

COBOTE KKEY4 51 7DC 

OSO08F KKEYS 64 7 

G@OG1BIINDATA AA Bl ae ee | 

SSG11I 1 1OIDKEY 

608121 . 2 11@8IDNUM 

988131 12 138FLDNUM 

GOG14I1 14 33 FLDATA 

OGB151 AB @2 #=1 ¢C2 

BOB16I 1 1GIDKEY 

G@GG17I : 2 .188SSN 

888181 11 126FLDNUM 





G8G191 13 32 FLDATA 








ae e 
GB92GI 
O8G21I 
688221 

231 

241 
O8B251I 


OBG261. 


888271 
OBG28T 
BOB29I 
OBB301 
88686311 
860321 
888331 
968341 


G@O835IMKFILE 


080361 
008371 
000381 
960391 
OBG4G1 
OO0411 
BO0421 
900431 
900441 
OBO9451 
000461 
900471 
Cgg48C 
oP 9c 
G0851C 
08852C 
68053C 
22054C 
GBB56C 
28057C 
SB058C 
coa59c 
28060C 
@8G61C 
08862C 
08963C 
08864C 
0BB65C 
GB066C 
OB067C 
G0068C 
98069C 
92878C 
96G71C 
98872 
88873C 
B8674C 
OO ge5C 
Th ihe 





99 


AC 


AD 


AE 


83 


64 


85 


07 


FLDNUM 


IDNUM 


SSN 


3 
INSNUM 


PHONE 


5 
RETNUM 


END 


C3 


C4 


C5 


SETOF 
COMP @ 
GOTO END 
SETOF 

SETOF 

SETOF 

SETK MKFILE 
CHAINMKFILE 
EXSR UPDTE 
GOTO END 
SETK MKFILE 
CHAINMKFILE 
EXSR UPDTE 
GOTO END 
SETK MKFILE 
CHAINMKFILE 
EXSR UPDTE 
GOTO END 
SETK MKFILE 
CHAINMKFILE 
EXSR UPDTE 
GOTO END 
SETK MKFILE 
CHAINMKFILE 
EXSR UPDTE 
GOTO END 
TAG 


1@IDKEY 
9B8INSNUM 
LISFLDNUM 
31 FLDATA 


1OIDKEY 
8@PHONE 
128FLDNUM 
38 FLDATA 


1@IDKEY 

8QRETNUM 
12Q8FLDNUM 
38 FLDATA 


1OBIDNUM 
38 NAME 
398SSN 
46 MSTAT 
420EXEMPT 
58GINSNUM 
578PHONE 
618DEPT 
63 SALCL 
78B8RETNUM 
768STDATE 
96 TITLE 
99 
99 


212223 
242526 
272858 


5@ 


58 


58 


56 


58 














” can 3 
82278CSR UPDTE BEGSR as 
@2879CSR FLDNUM COMP 2 21 
BBSEBCSR 2) MOVELFLDATA NAME 28 
O@8B81CSR 2) GOTO END2 
@6882CSR FLDNUM COMP 4 22 
92883CSR 22 MOVELFLDATA MSTAT 1 
G@BZ84CSR 22 GOTO END2 
QBG85CSR FLDNUM COMP 5 23 
BBB8ECSR 23 MOVELFLDATA EXEMPT 28 
@8687CSR 23 GOTO END2 
@8888CSR FLDNUM ‘COMP 7 24 
@BB89CSR 24 MOVELFLDATA PHONE 70 
O2BB9BCSR 24 GOTO END2 
G68691CSR FLDNUM COMP 8 25 
88892CSR 25 MOVELFLDATA DEPT 46 
O2893CSR 25 GOTO END2 
G62B94CSR- FLDNUM COMP 9 26 
G@2695CSR 26 MOVELFLDATA SALCL 2 
@BG96CSR 26 GOTO END2 
@22897CSR FLDNUM COMP 11 27 
@8898CSR 27 MOVELFLDATA STDATEBO6G 
BBG99CSR 27... GOTO END2 
@8106CSR FLDNUM COMP 12 28 
G21B81CSR 28 MOVELFLDATA TITLE 28 
QZ182CSR END2 TAG 
8G8183CSR ENDSR 
BGIS4OMKFILE D N5QN99 67 
981850 IDNUM 18 
681860 NAME 30 
821870 SSN. 39 
621880 MSTAT 40 
621890 EXEMPT 42 
281180 INSNUM 58 
¢91110 PHONE 57 
€@1120 DEPT 61 
€21130 SALCL 63 
921140 RETNUM 78 
6¢1150 STDATE 76 
281160 TITLE 96 


JOB CONTROL TO COMPILE AND LINK MKUPD: 


// JOB RPGEI&&, ,BOOB RPG II COMPILE & LINK 
// IF ('&PGM' NE '')S1 


// QGBL PGM 

//S1 NOP 

//&PGM RPG IN= (OS3DTA,JAM.SRC) , ERRFIL=(OS3DTA,JAM.ERF,JAM.EF1), xX 
/1 CONSOLE=INDATA 


//&PGM LINK OUT=(OS3DTA,JAM.LOD) 
/& 











JOB CONTROL TO EXECUTE MKUPD: 


// JOB MLTUP2&&, ,DO80 
\dmiF ('&PGM' NE '')S1 
GBL PGM 
//S1 NOP 
// DVC-28 // LFD PRNTR 
// DVC 288 
// USE SFS 
// UID SYS$MAS 
// LFD INDATA 
// DVC 68 // VOL OS3DTA // LBL MKFILE // LFD MKFILE 
// DVC 66 // VOL OS3DTA // LBL JAM.LOD 


// LED LOD 
// EXEC &PGM,LOD 
/& 


E. MSKEY1 TO MSKEYS ~- SEQUENTIAL PROCESSING OF MKFILE 


THESE 5 PROGRAMS SEQUENTIALLY PROCESS MKFILE BY USING 

THE SETK OPERATION TO SELECT KEY STRUCTURE. /COPY STATEMENTS 

WERE USED TO SAVE REPEATEDLY CODING THE SAME FILE DESCRIPTION, 

INPUT AND OUTPUT SPECIFICATION FORMS. THE COMMON SOURCE 

CODING LINES WERE STORED IN A SEPARATE LIBRARY FILE (JAM.COPY) é 
AS MODULES "MKF", "MKIN" AND "MKPRNTR" AND CONTAIN: 


© MKF: COMMON FILE DESCRIPTION SPECIFICATIONS FOR "MKFILE" 
COBOC3FMKFILE IPE F 96 96 Al DISK S 
OB0G64F KKEY1 1108 
COBO05F KKEY2 2 ee, 
OOOSBEF KKEY 3 43 8 
SUOB7F KKEY4 51 7DC 
COOGBF KKEY5 64 7 
2OS89FPRNTR 0 E32 La2 OF PRINTER 


MKIN: COMMON INPUT SPECIFICATIONS FOR’ "MKFILE" 


BGB23IMKFILE AA @1 


O882241 1 186IDNUM 
B6825I ll 38 NAME 
888261 31 398SSN 
868271 48 48 MSTAT 
B88281 41 420EXEMPT 
GBG29T , 43 588INSNUM 
GBGB301 51 578PHONE 
@88311 58 616DEPT 
880321 62 63 SALCL 
666331 : 64 7868RETNUM 
888341 71 768STDATE © 


_ fe 77 96 TITLE 





MKPRNTR: COMMON OUTPUT SPECIFICATIONS FOR "MKFILE" 


888890PRNTR H 387 
888980 OR 
089910 

888920 

986930- Be .o] 
8802940 OR 
882950 

880960 

882970 

888980 

888990 

881080 

6219810 

@81820 H 2 
621830 OR 
081840 

881850 

881860 

661670 

881880 * 
681890 D> ‘J 
861190 

¢@1110 

201120 

081130 

061140 

v81150 

321160 

381170 

vk i180 

861190 

831260 

vwO1l210 


OF 
iP 


OF 
iP 


OF 


81 


78 
8B 


IDNUM Io. 
NAME faeo 
SSN we as™ 


MSTAT 51, 
EXEMPT 59 
INSNUM 71 
PHONE Bl 
DEPT —— 87 
SALCL 91 
RETNUM 188 
STDATEY 119 
TITLE 132 








TOR ME Tse KB YS 





'F IL EB *%! 

‘Ip! 

‘EMPLOYEE! 

"SOCIAL MARITAL! 
'EXEMP INS.' 
"PHONE DEPT sc! 
"RET. START! 
"TITLE! 

' "NUMBER! 

"NAME! 

"SECURITY STATUS! 
"NUMBER NUMBER! 
"NUMBER DATE! 





MSKEY1 TO MSKEY5: SEQUENTIAL PROCESSING OF*"MKFILE" BY SELECTED KEY 


THESE 5 PROGRAMS PROCESS "MKFILE" SEQUENTIALLY BY SELECTED KEY USING 
THE "SETK" OPERATION. THESE ARE BATCH JOBS AND EACH PRODUCES A PRINTED 


LISTING OF THE "MKFILE" 


IN THE DESIGNATED ORDER. 


1."MSKEY1": PROCESSING SEQUENTIALLY BY KEY 1 (IDNUM - EMPLOYEE -.- 
IDENTIFICATION NUMBER) is 


UCJSA,JAM.AUTO 
H 

F/COPY JC,MKF 
I/COPY JC,MKIN 


Cc 81 FIRST 
c 61 FIRST 
Cc 98 Z 


O/COPY JC,MKPRNTR 


MSKEY1 


ADD 1 FIRST 158 


COMP 1 
SETK MKFILE 


“98 











2."MSKEY2": 
SOCIAL SECURITY NUMBER) 


UCJSA,JAM.AUTO 
H 

F/COPY JC,MKF 
I/COPY JC,MKIN 


c 81 FIRST ADD 1 FIRST 
Cc 81 FIRST COMP 1 
Cc 98 2 SETK MKFILE 


O/COPY JC,MKPRNTR 
3."MSKEY3": PROCESSING SEQUENTIALLY BY 
INSURANCE NUMBER) 


UCJSA,JAM.AUTO 
B 

F/COPY JC,MKF 
I/COPY JC,MKIN 


Cc 61 FIRST ADD 1 FIRST 
c 91 FIRST COMP 1 
eC 88. x. 3 SETK MKFILE., 
O/COPY JC,MKPRNTR | 
4."MSKEY4": PROCESSING SEQUENTIALLY. ‘BY 
. BUSINESS PHONE, NUMBER) 
UCISA,JAM.AUTO cs 


F/COPY JC,MKF . ; 
I/COPY JC,MKIN os 


Cc fl FIRST ADD 1 >» FIRST 
Cc 66] FIRST COMP 1 “ oe 
C 98 4 SETK MKFILE apts 


O/COPY JC,MKPRNTR rome 
PROCESSING. SEQUENTIALLY By 


_5."MSKEY5": 
— RETIREMENT ACCOUNT NUMBER) 


UCISA,JAM.AUTO © 
H 

F/COPY JC,MKF 
I/COPY JC,MKIN 
FIRST 


Cc @1 FIRST ADD 1 
C B81 FIRST COMP 1 
C 98 5 SETK MKFILE 


O/COPY IC; MKPRNTR 


NOTE: 
point to the first record of the data file. 


PROCESSING SEQUENTIALLY BY KEY 2 


(SSN - EMPLOYEE 


MSKEY2 
158 
98 
KEY 3 (INSNUM - EMPLOYEE 
MSKEY3 
158 
98 
KEY 4 (PHONE - EMPLOYEE 
MSKEY4 
158 
98 
KEY 5 (RETNUM - EMPLOYEE 
MSKEYS5 
156 


98 


Each time a "SETK" command is issued, the file record pointer is reset to 





3- 
ha 
% 


JOB CONTROL TO COMPILE AND LINK MSKEY1 TO MSKEYS: 


// JOB AUTRPG2& COMPILE....ERRFIL OPTION ADDED 
// OPTION JOB DUMP 

// IF ("&PGM' NE '')ysi 

// QGBL PGM 

//S1 NOP. 

// DVC 58 

// VOL’ OS3DTA 

// LBL JAM.COPY 

// LED JIC 

// DVC 58 

//.VOL OS3DTA 

// LBL JAM.AUTO 

// LED JSA 

-//&PGM AUTRPG IN=(OS3DTA,JAM.SRC) , ERRFIL= (OS3DTA,JAM.ERF,JAM.EF1) 
//&PGM LINK OUT= (OS3DTA, JAM.LOD) 

/& 





JOB CONTROL TO EXECUTE MSKEY1 TO MSKEYS: 


// JOB MSKEY&&, ,DBGB 

// IF ('&PGM! NE '')S$1 

// QGBL PGM 

//S1 NOP 

// DVC 28 // LFD PRNTR 

// DVC 68 // VOL OS3DTA // LBL MKFILE // LFD MKFILE 
// DVC 68 // VOL OS3DTA // LBL JAM,LOD 

// LED LOD 

/{ EXEC &PGM,LOD 











